home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 April / EnigmA AMIGA RUN 06 (1996)(G.R. Edizioni)(IT)[!][issue 1996-04][Skylink CD V].iso / progs / editor / write-ed / rexx / closedown.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-20  |  963b  |  54 lines
  1. /*
  2.  * Dieses Script schaltet den Sleep-Modus aus,
  3.  * schließt alle Fenster von WRITE mit Sicherheitsabfrage und sorgt somit
  4.  * dafür, daß WRITE beendet wird.
  5.  *
  6.  * Dieses Script ist dafür da WRITE zu beenden, wenn durch ungeschickte
  7.  * Konfiguration dies nicht mehr aus WRITE selbst heraus möglich ist.
  8.  *
  9.  *  $VER: CloseDown.wrx 1.0
  10.  *
  11.  *  NOTE: Since QuickWrite now has the QUIT-Option this script is opsolent
  12.  *
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. SIGNAL ON SYNTAX
  18.  
  19. ADDRESS "WRITE"
  20.  
  21. 'VERSIONCHECK 40000 "CloseDown.wrx"'
  22. IF RC~=0 THEN DO
  23.   exit 10
  24. END
  25.  
  26. ID = 0
  27. NEXTED ID
  28.  
  29. do while RC=0
  30.   'GETVAR "_CurrentID"'
  31.   ID = Result
  32.   'GETVAR "_changed"'
  33.   if Result=1 then do
  34.     'ASK "File\n$_FileName$\n has been modified" "_Save & Quit*|_Quit^"'
  35.     if Result=0 then do
  36.       'SAVE _FileName'
  37.     end
  38.     'SETVAR "_changed" FALSE'
  39.   end
  40.   QUITED
  41.   NEXTED ID
  42. end
  43.  
  44. 'SETVAR "_SleepMode" 0'
  45.  
  46. EXIT
  47.  
  48. SYNTAX :
  49.   if rc=13 then do
  50.   end
  51.   else do
  52.     say "Fehler : " rc errortext(rc)
  53.   end
  54.